home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated Multimedia Almanac 1995 / Sports Illustrated Multimedia Almanac (1995)(StarPress)[Mac-PC].iso / pc / msdetect.inc < prev    next >
Text File  |  1994-12-09  |  23KB  |  688 lines

  1. rem rem $$Begin$$
  2.  
  3. rem Copyright:    (c) 1994 StarPress Multimedia. All Rights Reserved.
  4. rem
  5. rem Project:      Sports Illustrated Multimedia Almanac
  6. rem
  7. rem Component:    Installer
  8. rem
  9. rem Description:  MSSETUP includes
  10. rem
  11. rem ---------------------------------------------------------------------
  12. rem
  13. rem rem   $Author:   NSJ  $
  14. rem
  15. rem rem     $Date:   06 Jul 1994 17:31:04  $
  16. rem
  17. rem rem      $Log:   S:/almanac.vcs/install/msdetect.inv  $
  18. rem
  19. rem rem  $Logfile:   S:/almanac.vcs/install/msdetect.inv  $
  20. rem
  21. rem rem $Workfile:   msdetect.inc  $
  22. rem
  23. rem ---------------------------------------------------------------------
  24.  
  25. rem rem $$End$$
  26.  
  27. '**************************************************************************
  28. '*************************  Setup Detect API's  ***************************
  29. '**************************************************************************
  30.  
  31. ''detect
  32.  
  33. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  34. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  35. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  36. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  37. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  38. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  39. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  40. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  41. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  42. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  43. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  44. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  45. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  46. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  47. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  48. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  49. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  50. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  51. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  52. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  53. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  54. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  55. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  56. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  57. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  58. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  59. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  60. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  61. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  62. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  63. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  64. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  65. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  66. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  67. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  68. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  69. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  70. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  71.  
  72.  
  73.  
  74. '*************************************************************************
  75. '****************  Detect Basic Wrapper Declarations  ********************
  76. '*************************************************************************
  77.  
  78.  
  79. '' detect
  80.  
  81. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  82. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  83. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  84. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  85. DECLARE SUB GetValidDrivesList (szSymbol$)
  86. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  87. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  88. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  89. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  90. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  91.  
  92. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  93. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  94. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  95. DECLARE FUNCTION GetNumWinApps AS INTEGER
  96.  
  97. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  98. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  99. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  100. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  101. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  102. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  103. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  104. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  105. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  106. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  107. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  108. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  109. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  110. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  111.  
  112. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  113. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  114. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  115.  
  116. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  117. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  118. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  119. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  120. DECLARE FUNCTION GetConfigLastDrive AS STRING
  121. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  122.  
  123. DECLARE FUNCTION GetProcessorType AS INTEGER
  124. DECLARE SUB GetParallelPortsList (szSymbol$)
  125. DECLARE SUB GetSerialPortsList (szSymbol$)
  126. DECLARE FUNCTION Has87MathChip AS INTEGER
  127. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  128. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  129.  
  130.  
  131. '*************************************************************************
  132. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  133. '$ifdef DEBUG
  134.     if FValidDrive(szDrive$) = 0 then
  135.         BadArgErr 1, "IsDriveValid", szDrive$
  136.     end if
  137. '$endif ''DEBUG
  138.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  139. END FUNCTION
  140.  
  141.  
  142. '*************************************************************************
  143. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  144. '$ifdef DEBUG
  145.     if FValidDrive(szDrive$) = 0 then
  146.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  147.     end if
  148. '$endif ''DEBUG
  149.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  150. END FUNCTION
  151.  
  152.  
  153. '*************************************************************************
  154. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  155. '$ifdef DEBUG
  156.     if FValidDrive(szDrive$) = 0 then
  157.         BadArgErr 1, "IsDriveRemovable", szDrive$
  158.     end if
  159. '$endif ''DEBUG
  160.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  161. END FUNCTION
  162.  
  163.  
  164. '*************************************************************************
  165. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  166. '$ifdef DEBUG
  167.     if FValidDrive(szDrive$) = 0 then
  168.         BadArgErr 1, "IsDriveNetwork", szDrive$
  169.     end if
  170. '$endif ''DEBUG
  171.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  172. END FUNCTION
  173.  
  174.  
  175. '*************************************************************************
  176. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  177. '$ifdef DEBUG
  178.     if FValidDrive(szDrive$) = 0 then
  179.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  180.     end if
  181. '$endif ''DEBUG
  182.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  183. END FUNCTION
  184.  
  185.  
  186. '*************************************************************************
  187. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  188. '$ifdef DEBUG
  189.     if FValidDrive(szDrive$) = 0 then
  190.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  191.     end if
  192. '$endif ''DEBUG
  193.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  194. END FUNCTION
  195.  
  196.  
  197. '*************************************************************************
  198. SUB GetValidDrivesList (szSymbol$) STATIC
  199. '$ifdef DEBUG
  200.     if szSymbol$ = "" then
  201.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  202.     end if
  203. '$endif ''DEBUG
  204.     if FGetValidDrivesList(szSymbol$) = 0 then
  205. '$ifdef DEBUG
  206.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  207. '$endif ''DEBUG
  208.         ERROR STFERR
  209.     end if
  210. END SUB
  211.  
  212.  
  213. '*************************************************************************
  214. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  215. '$ifdef DEBUG
  216.     if szSymbol$ = "" then
  217.         BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  218.     end if
  219. '$endif ''DEBUG
  220.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  221. '$ifdef DEBUG
  222.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  223. '$endif ''DEBUG
  224.         ERROR STFERR
  225.     end if
  226. END SUB
  227.  
  228.  
  229. '*************************************************************************
  230. SUB GetRemovableDrivesList (szSymbol$) STATIC
  231. '$ifdef DEBUG
  232.     if szSymbol$ = "" then
  233.         BadArgErr 1, "GetRemovableDrivesList", szSymbol$
  234.     end if
  235. '$endif ''DEBUG
  236.     if FGetRemovableDrivesList(szSymbol$) = 0 then
  237. '$ifdef DEBUG
  238.         StfApiErr saeFail, "GetRemovableDrivesList", szSymbol$
  239. '$endif ''DEBUG
  240.         ERROR STFERR
  241.     end if
  242. END SUB
  243.  
  244.  
  245. '*************************************************************************
  246. SUB GetNetworkDrivesList (szSymbol$) STATIC
  247. '$ifdef DEBUG
  248.     if szSymbol$ = "" then
  249.         BadArgErr 1, "GetNetworkDrivesList", szSymbol$
  250.     end if
  251. '$endif ''DEBUG
  252.     if FGetNetworkDrivesList(szSymbol$) = 0 then
  253. '$ifdef DEBUG
  254.         StfApiErr saeFail, "GetNetworkDrivesList", szSymbol$
  255. '$endif ''DEBUG
  256.         ERROR STFERR
  257.     end if
  258. END SUB
  259.  
  260.  
  261. '*************************************************************************
  262. FUNCTION GetDOSMajorVersion STATIC  AS INTEGER
  263.     GetDOSMajorVersion = WGetDOSMajorVersion
  264. END FUNCTION
  265.  
  266.  
  267. '*************************************************************************
  268. FUNCTION GetDOSMinorVersion STATIC  AS INTEGER
  269.     GetDOSMinorVersion = WGetDOSMinorVersion
  270. END FUNCTION
  271.  
  272.  
  273. '*************************************************************************
  274. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  275. '$ifdef DEBUG
  276.     if szEnvVar$ = "" then
  277.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  278.     end if
  279. '$endif ''DEBUG
  280.     cb% = 1024
  281.     szBuf$ = STRING$(cb%, 32)
  282.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  283.     GetEnvVariableValue = szBuf$
  284. '$ifdef DEBUG
  285.     IF cbRet% >= cb% THEN
  286.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  287.         ERROR STFERR
  288.     END IF
  289. '$endif ''DEBUG
  290.     szBuf$ = ""
  291. END FUNCTION
  292.  
  293.  
  294. '*************************************************************************
  295. FUNCTION GetNumWinApps STATIC  AS INTEGER
  296.     GetNumWinApps = WGetNumWinApps
  297. END FUNCTION
  298.  
  299.  
  300. '*************************************************************************
  301. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  302. '$ifdef DEBUG
  303.     if FValidFATPath(szFileName$) = 0 then
  304.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  305.     end if
  306. '$endif ''DEBUG
  307.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  308. END FUNCTION
  309.  
  310.  
  311. '*************************************************************************
  312. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  313. '$ifdef DEBUG
  314.     if FValidFATPath(szFile$) = 0 then
  315.         BadArgErr 1, "GetDateOfFile", szFile$
  316.     end if
  317. '$endif ''DEBUG
  318.     cb% = 20
  319.     szBuf$ = STRING$(cb%, 32)
  320.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  321.     GetDateOfFile = szBuf$
  322. '$ifdef DEBUG
  323.     IF cbRet% >= cb% THEN
  324.         StfApiErr saeOvfl, "GetDateOfFile", szFile$
  325.         ERROR STFERR
  326.     END IF
  327. '$endif ''DEBUG
  328.     szBuf$ = ""
  329. END FUNCTION
  330.  
  331.  
  332. '*************************************************************************
  333. FUNCTION GetYearFromDate (szDate$) STATIC  AS INTEGER
  334. '$ifdef DEBUG
  335.     if szDate = "" then
  336.         BadArgErr 1, "GetYearFromDate", szDate$
  337.     end if
  338. '$endif ''DEBUG
  339.     GetYearFromDate = VAL(MID$(szDate$, 1, 4))
  340. END FUNCTION
  341.  
  342.  
  343. '*************************************************************************
  344. FUNCTION GetMonthFromDate (szDate$) STATIC  AS INTEGER
  345. '$ifdef DEBUG
  346.     if szDate = "" then
  347.         BadArgErr 1, "GetMonthFromDate", szDate$
  348.     end if
  349. '$endif ''DEBUG
  350.     GetMonthFromDate = VAL(MID$(szDate$, 6, 2))
  351. END FUNCTION
  352.  
  353.  
  354. '*************************************************************************
  355. FUNCTION GetDayFromDate (szDate$) STATIC  AS INTEGER
  356. '$ifdef DEBUG
  357.     if szDate = "" then
  358.         BadArgErr 1, "GetDayFromDate", szDate$
  359.     end if
  360. '$endif ''DEBUG
  361.     GetDayFromDate = VAL(MID$(szDate$, 9, 2))
  362. END FUNCTION
  363.  
  364.  
  365. '*************************************************************************
  366. FUNCTION GetHourFromDate (szDate$) STATIC  AS INTEGER
  367. '$ifdef DEBUG
  368.     if szDate = "" then
  369.         BadArgErr 1, "GetHourFromDate", szDate$
  370.     end if
  371. '$endif ''DEBUG
  372.     GetHourFromDate = VAL(MID$(szDate$, 12, 2))
  373. END FUNCTION
  374.  
  375.  
  376. '*************************************************************************
  377. FUNCTION GetMinuteFromDate (szDate$) STATIC  AS INTEGER
  378. '$ifdef DEBUG
  379.     if szDate = "" then
  380.         BadArgErr 1, "GetMinuteFromDate", szDate$
  381.     end if
  382. '$endif ''DEBUG
  383.     GetMinuteFromDate = VAL(MID$(szDate$, 15, 2))
  384. END FUNCTION
  385.  
  386.  
  387. '*************************************************************************
  388. FUNCTION GetSecondFromDate (szDate$) STATIC  AS INTEGER
  389. '$ifdef DEBUG
  390.     if szDate = "" then
  391.         BadArgErr 1, "GetSecondFromDate", szDate$
  392.     end if
  393. '$endif ''DEBUG
  394.     GetSecondFromDate = VAL(MID$(szDate$, 18, 2))
  395. END FUNCTION
  396.  
  397.  
  398. '*************************************************************************
  399. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  400. '$ifdef DEBUG
  401.     if FValidFATPath(szFile$) = 0 then
  402.         BadArgErr 1, "GetVersionOfFile", szFile$
  403.     end if
  404. '$endif ''DEBUG
  405.     cb% = 30
  406.     szBuf$ = STRING$(cb%, 32)
  407.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  408.     GetVersionOfFile = szBuf$
  409. '$ifdef DEBUG
  410.     IF cbRet% >= cb% THEN
  411.         StfApiErr saeOvfl, "GetVersionOfFile", szFile$
  412.         ERROR STFERR
  413.     END IF
  414. '$endif ''DEBUG
  415.     szBuf$ = ""
  416. END FUNCTION
  417.  
  418.  
  419. '*************************************************************************
  420. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  421. '$ifdef DEBUG
  422.     if (nField% < 1) OR (nField% > 4) then
  423.         BadArgErr 2, "GetVersionNthField", szVersion$+", "+STR$(nField%)
  424.     end if
  425. '$endif ''DEBUG
  426.     GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  427. END FUNCTION
  428.  
  429.  
  430. '*************************************************************************
  431. FUNCTION GetSizeOfFile (szFile$) STATIC  AS LONG
  432. '$ifdef DEBUG
  433.     if FValidFATPath(szFile$) = 0 then
  434.         BadArgErr 1, "GetSizeOfFile", szFile$
  435.     end if
  436. '$endif ''DEBUG
  437.     GetSizeOfFile = LcbGetSizeOfFile(szFile$)
  438. END FUNCTION
  439.  
  440.  
  441. '*************************************************************************
  442. FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) STATIC  AS STRING
  443. '$ifdef DEBUG
  444.     if CchlValidFATSubPath(szFile$) = 0 then
  445.         n% = 1
  446.     elseif szEnvVar$ = "" then
  447.         n% = 2
  448.     else
  449.         n% = 0
  450.     end if
  451.     if n% > 0 then
  452.         BadArgErr n%, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  453.     end if
  454. '$endif ''DEBUG
  455.  
  456.     cb% = 512
  457.     szBuf$ = STRING$(cb%, 32)
  458.     cbRet% = CbFindTargetOnEnvVar(szFile$, szEnvVar$, szBuf$, cb%)
  459.     IF cbRet% >= cb% THEN
  460. '$ifdef DEBUG
  461.         StfApiErr saeOvfl, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  462. '$endif ''DEBUG
  463.         ERROR STFERR
  464.     END IF
  465.     szBuf$ = RTRIM$(szBuf$)
  466.     IF MID$(szBuf$, 1, 1) = "\" THEN
  467.        szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  468.     ELSEIF Len(szBuf$) > 0 AND MID$(szBuf$, 2, 1) <> ":" THEN
  469.        szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  470.     END IF
  471.     FindTargetOnEnvVar = szBuf$
  472.     szBuf$ = ""
  473. END FUNCTION
  474.  
  475.  
  476. '*************************************************************************
  477. FUNCTION FindFileInTree (szFile$, szDir$) STATIC  AS STRING
  478. '$ifdef DEBUG
  479.     if CchlValidFATSubPath(szFile$) = 0 then
  480.         n% = 1
  481.     elseif FValidFATDir(szDir$) = 0 then
  482.         n% = 2
  483.     else
  484.         n% = 0
  485.     end if
  486.     if n% > 0 then
  487.         BadArgErr n%, "FindFileInTree", szFile$+", "+szDir$
  488.     end if
  489. '$endif ''DEBUG
  490.  
  491.     cb% = 512
  492.     szBuf$ = STRING$(cb%, 32)
  493.     cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  494.     FindFileInTree = szBuf$
  495. '$ifdef DEBUG
  496.     IF cbRet% >= cb% THEN
  497.         StfApiErr saeOvfl, "FindFileInTree", szFile$+", "+szDir$
  498.         ERROR STFERR
  499.     END IF
  500. '$endif ''DEBUG
  501.     szBuf$ = ""
  502. END FUNCTION
  503.  
  504.  
  505. '*************************************************************************
  506. FUNCTION GetConfigSmartdrvSize STATIC  AS INTEGER
  507.     GetConfigSmartdrvSize = WGetConfigSmartdrvSize
  508. END FUNCTION
  509.  
  510.  
  511. '*************************************************************************
  512. FUNCTION GetConfigRamdriveSize STATIC  AS INTEGER
  513.     GetConfigRamdriveSize = WGetConfigRamdriveSize
  514. END FUNCTION
  515.  
  516.  
  517. '*************************************************************************
  518. FUNCTION GetConfigNumBuffers STATIC  AS INTEGER
  519.     GetConfigNumBuffers = WGetConfigNumBuffers
  520. END FUNCTION
  521.  
  522.  
  523. '*************************************************************************
  524. FUNCTION GetConfigNumFiles STATIC  AS INTEGER
  525.     GetConfigNumFiles = WGetConfigNumFiles
  526. END FUNCTION
  527.  
  528.  
  529. '*************************************************************************
  530. FUNCTION GetConfigLastDrive STATIC  AS STRING
  531.     chRet% = WGetConfigLastDrive
  532.     if chRet% = 0 then
  533.         GetConfigLastDrive = ""
  534.     else
  535.         GetConfigLastDrive = CHR$(chRet%)
  536.     end if
  537. END FUNCTION
  538.  
  539.  
  540. '*************************************************************************
  541. FUNCTION IsDriverInConfig (szDrv$) STATIC  AS INTEGER
  542. '$ifdef DEBUG
  543.     if szDrv$ = "" then
  544.         BadArgErr 1, "IsDriverInConfig", szDrv$
  545.     end if
  546. '$endif ''DEBUG
  547.     IsDriverInConfig = FIsDriverInConfig(szDrv$)
  548. END FUNCTION
  549.  
  550.  
  551. '*************************************************************************
  552. FUNCTION GetProcessorType STATIC  AS INTEGER
  553.     GetProcessorType = 0
  554.     longTmp& = GetWinFlags()
  555.     IF longTmp& AND WF_CPU486 THEN
  556.         GetProcessorType = 4
  557.     ELSEIF longTmp& AND WF_CPU386 THEN
  558.         GetProcessorType = 3
  559.     ELSEIF longTmp& AND WF_CPU286 THEN
  560.         GetProcessorType = 2
  561.     ELSEIF longTmp& AND WF_CPU186 THEN
  562.         GetProcessorType = 1
  563.     END IF
  564. END FUNCTION
  565.  
  566.  
  567. '*************************************************************************
  568. SUB GetParallelPortsList (szSymbol$) STATIC
  569. '$ifdef DEBUG
  570.     if szSymbol$ = "" then
  571.         BadArgErr 1, "GetParallelPortsList", szSymbol$
  572.     end if
  573. '$endif ''DEBUG
  574.     if FGetParallelPortsList(szSymbol$) = 0 then
  575. '$ifdef DEBUG
  576.         StfApiErr saeFail, "GetParallelPortsList", szSymbol$
  577. '$endif ''DEBUG
  578.         ERROR STFERR
  579.     end if
  580. END SUB
  581.  
  582.  
  583. '*************************************************************************
  584. SUB GetSerialPortsList (szSymbol$) STATIC
  585. '$ifdef DEBUG
  586.     if szSymbol$ = "" then
  587.         BadArgErr 1, "GetSerialPortsList", szSymbol$
  588.     end if
  589. '$endif ''DEBUG
  590.     if FGetSerialPortsList(szSymbol$) = 0 then
  591. '$ifdef DEBUG
  592.         StfApiErr saeFail, "GetSerialPortsList", szSymbol$
  593. '$endif ''DEBUG
  594.         ERROR STFERR
  595.     end if
  596. END SUB
  597.  
  598.  
  599. '*************************************************************************
  600. FUNCTION Has87MathChip STATIC  AS INTEGER
  601.     Has87MathChip = FHas87MathChip
  602. END FUNCTION
  603.  
  604.  
  605. '*************************************************************************
  606. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  607.     HasMonochromeDisplay = FHasMonochromeDisplay
  608. END FUNCTION
  609.  
  610.  
  611. '*************************************************************************
  612. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  613.     HasMouseInstalled = FHasMouseInstalled
  614. END FUNCTION
  615.  
  616.  
  617. '*************************************************************************
  618. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  619. '$ifdef DEBUG
  620.     if FValidFATDir(szDir$) = 0 then
  621.         BadArgErr 1, "DoesDirExist", szDir$
  622.     end if
  623. '$endif ''DEBUG
  624.     DoesDirExist = FDirExists(szDir$)
  625. END FUNCTION
  626.  
  627.  
  628. '*************************************************************************
  629. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  630. '$ifdef DEBUG
  631.     if FValidIniFile(szFile$) = 0 then
  632.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  633.     end if
  634. '$endif ''DEBUG
  635.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  636. END FUNCTION
  637.  
  638.  
  639. '*************************************************************************
  640. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  641. '$ifdef DEBUG
  642.     if FValidIniFile(szFile$) = 0 then
  643.         n% = 1
  644.     elseif szKey$ = "" then
  645.         n% = 3
  646.     else
  647.         n% = 0
  648.     end if
  649.     if n% > 0 then
  650.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  651.     end if
  652. '$endif ''DEBUG
  653.  
  654.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  655. END FUNCTION
  656.  
  657.  
  658. '*************************************************************************
  659. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  660. '$ifdef DEBUG
  661.     if FValidIniFile(szFile$) = 0 then
  662.         n% = 1
  663.     elseif szKey$ = "" then
  664.         n% = 3
  665.     else
  666.         n% = 0
  667.     end if
  668.     if n% > 0 then
  669.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  670.     end if
  671. '$endif ''DEBUG
  672.  
  673.     cb% = 512
  674.     szBuf$ = STRING$(cb%, 32)
  675.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  676.     GetIniKeyString = szBuf$
  677. '$ifdef DEBUG
  678.     IF cbRet% >= cb% THEN
  679.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  680.         ERROR STFERR
  681.     END IF
  682. '$endif ''DEBUG
  683.     szBuf$ = ""
  684. END FUNCTION
  685.  
  686.  
  687.  
  688.